home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Überweisung.inbpri < prev    next >
Text File  |  1999-03-27  |  4KB  |  185 lines
  1. 1$VER: Überweisung 1.07 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.07
  6. %%Title: (MT-RechnungIII - Überweisung)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: Ueberweisung 427 300 null () ()
  9. %%DocumentNeededResources: font Courier
  10. %%BoundingBox: 0 0 427 300
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: Ueberweisung
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [427 300] >> setpagedevice
  18.  
  19. /PageSize [427 300] def
  20.  
  21. /DokumentRandX 28 def
  22. /DokumentRandY 65 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. %%EndSetup
  43.  
  44. %%BeginnResource
  45. /reencodedict 5 dict def
  46. /ReEncode
  47. {
  48.      reencodedict begin
  49.      /newencoding exch def
  50.      /newfontname exch def
  51.      /basefontname exch def
  52.  
  53.      /basefontdict basefontname findfont def
  54.  
  55.      /newfont basefontdict maxlength dict def
  56.  
  57.      basefontdict
  58.      { exch dup dup /FID ne exch /Encoding ne and
  59.           { exch newfont 3 1 roll put }
  60.           { pop pop }
  61.           ifelse
  62.      } forall
  63.      newfont /FontName newfontname put
  64.      newfont /Encoding newencoding put
  65.      newfontname newfont definefont pop
  66.      end
  67. } def
  68.  
  69. /ISOLatin8Encoding
  70. [
  71.     ISOLatin1Encoding 0 164 getinterval aload pop
  72.     /euro
  73.     ISOLatin1Encoding 165 91 getinterval aload pop
  74. ] def
  75. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  76. %%EndResource
  77.  
  78. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  79. /Courier 14 /OF0 /Courier /OF0 getfont
  80. Courier setfont
  81.  
  82. /XO 5.81 def
  83.  
  84. %% Währungssymbol vom Betrag entfernen
  85. ERWaehrung 1 gt
  86. {
  87.     /Betrag ERGesamtminRabSkonWert 3 get def
  88. }
  89. {
  90.     /Betrag ERGesamtminRabSkonWert 1 get def
  91. } ifelse
  92. Betrag ERWaehrungSymbol search pop exch pop
  93. dup length 0 gt
  94. { exch pop }
  95. { pop } ifelse
  96. /Betrag exch def
  97.  
  98. /zwischenstring 80 string def
  99. %% Ausgab des Dokuments
  100. DokumentRandX DokumentRandY moveto
  101. LiefFirma1 () gt
  102. {
  103.     LiefFirma1 zwischenstring copy pop
  104.     /laenge LiefFirma1 length def
  105. }
  106. {
  107.     LiefName zwischenstring copy pop
  108.     zwischenstring LiefName length ( ) putinterval
  109.     zwischenstring LiefName length 1 add LiefVorname putinterval
  110.     /laenge LiefName length LiefVorname length add 1 add def
  111. } ifelse
  112.  
  113. laenge 27 gt
  114. {
  115.     /laenge 27 def
  116. } if
  117. XO 0 zwischenstring 0 laenge getinterval ashow
  118.  
  119. DokumentRandY 24 sub /DokumentRandY exch def
  120. DokumentRandX DokumentRandY moveto
  121. XO 0 LiefKonto ashow
  122.  
  123. DokumentRandX 270 add DokumentRandY moveto
  124. XO 0 LiefBLZ ashow
  125.  
  126. DokumentRandY 24 sub /DokumentRandY exch def
  127. DokumentRandX DokumentRandY moveto
  128. /laenge LiefBank length def
  129. laenge 27 gt
  130. {
  131.     /laenge 27 def
  132. } if
  133. XO 0 LiefBank 0 laenge getinterval ashow
  134.  
  135. DokumentRandY 24 sub /DokumentRandY exch def
  136. DokumentRandX 156 add DokumentRandY moveto
  137. XO 0 ERWaehrungSymbol ashow
  138.  
  139. DokumentRandX 214 add DokumentRandY moveto
  140. XO 0 Betrag ashow
  141.  
  142. DokumentRandY 24 sub /DokumentRandY exch def
  143. DokumentRandX DokumentRandY moveto
  144. XO 0 (Rechnung: ) ashow
  145. XO 0 ERRechnungsNr ashow
  146.  
  147. DokumentRandY 24 sub /DokumentRandY exch def
  148. DokumentRandX DokumentRandY moveto
  149. XO 0 (Kundennummer: ) ashow
  150. XO 0 LiefKundenNrLieferant ashow
  151.  
  152. DokumentRandY 24 sub /DokumentRandY exch def
  153. DokumentRandX DokumentRandY moveto
  154. NiedFirma1 () gt
  155. {
  156.     NiedFirma1 zwischenstring copy pop
  157.     /laenge NiedFirma1 length def
  158. }
  159. {
  160.     NiedName zwischenstring copy pop
  161.     zwischenstring NiedName length ( ) putinterval
  162.     zwischenstring NiedName length 1 add NiedVorname putinterval
  163.     /laenge NiedName length NiedVorname length add 1 add def
  164. } ifelse
  165. zwischenstring laenge (, ) putinterval
  166. zwischenstring laenge 2 add NiedOrt putinterval
  167. laenge NiedOrt length add 2 add /laenge exch def
  168. laenge 27 gt
  169. {
  170.     /laenge 27 def
  171. } if
  172. XO 0 zwischenstring 0 laenge getinterval ashow
  173.  
  174. DokumentRandY 24 sub /DokumentRandY exch def
  175. DokumentRandX DokumentRandY moveto
  176. XO 0 NiedKonto ashow
  177. DokumentRandX 157 add DokumentRandY moveto
  178. XO 0 Betrag ashow
  179.  
  180. showpage
  181.  
  182. %%Trailer
  183. clear
  184. %%EOF
  185.